MITgcm |
|
|
|
|||
File indexing completed on 2018-03-02 18:40:33 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCa456aa407c Andr*0001 #include "FIZHI_OPTIONS.h" 042cc2fb4b Andr*0002 subroutine fizhi_update_time (myIter,myThid,deltat) 68d0aa1535 Andr*0003 C*********************************************************************** 0004 C Purpose 0005 C ------- 0006 C Update Model Date and Time 0007 C 0008 C Arguments Description 0009 C ---------------------- 0010 C myThid ... Process(or) number 0011 C deltat ... Time step to tick the clock 0012 C*********************************************************************** 0013 implicit none 0014 0015 #include "chronos.h" 0016 042cc2fb4b Andr*0017 integer myIter, myThid 738c2c4491 Andr*0018 _RL deltat 0019 0020 integer ndt 68d0aa1535 Andr*0021 0022 C ********************************************************************** 0023 C **** Call Routine to Tick the Clock **** 0024 C ********************************************************************** 738c2c4491 Andr*0025 ndt = deltat 0026 call tick(nymd,nhms,ndt) 68d0aa1535 Andr*0027 0028 if(mythid.eq.1) then 0029 print *, 'Current Date ',nymd,' Current Time ',nhms 0030 endif 0031 0032 return 0033 end
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|