Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/dynredem.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/dynredem.F
r1279 r1299 8 8 #endif 9 9 USE infotrac 10 10 11 IMPLICIT NONE 11 12 c======================================================================= … … 72 73 tab_cntrl(l) = 0. 73 74 ENDDO 74 tab_cntrl(1) = FLOAT(iim)75 tab_cntrl(2) = FLOAT(jjm)76 tab_cntrl(3) = FLOAT(llm)77 tab_cntrl(4) = FLOAT(day_ref)78 tab_cntrl(5) = FLOAT(annee_ref)75 tab_cntrl(1) = REAL(iim) 76 tab_cntrl(2) = REAL(jjm) 77 tab_cntrl(3) = REAL(llm) 78 tab_cntrl(4) = REAL(day_ref) 79 tab_cntrl(5) = REAL(annee_ref) 79 80 tab_cntrl(6) = rad 80 81 tab_cntrl(7) = omeg … … 116 117 ENDIF 117 118 118 tab_cntrl(30) = FLOAT(iday_end)119 tab_cntrl(31) = FLOAT(itau_dyn + itaufin)119 tab_cntrl(30) = REAL(iday_end) 120 tab_cntrl(31) = REAL(itau_dyn + itaufin) 120 121 c 121 122 c ......................................................... … … 517 518 . vcov,ucov,teta,q,masse,ps) 518 519 USE infotrac 520 USE control_mod 521 519 522 IMPLICIT NONE 520 523 c================================================================= … … 528 531 #include "comgeom.h" 529 532 #include "temps.h" 530 #include "control.h"531 533 532 534 INTEGER l … … 589 591 ierr = NF_GET_VAR_REAL(nid, nvarid, tab_cntrl) 590 592 #endif 591 tab_cntrl(31) = FLOAT(itau_dyn + itaufin)593 tab_cntrl(31) = REAL(itau_dyn + itaufin) 592 594 #ifdef NC_DOUBLE 593 595 ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,tab_cntrl)
Note: See TracChangeset
for help on using the changeset viewer.