Changeset 5267 for LMDZ6/trunk/libf/dyn3d_common/writedynav.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (43 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/writedynav.F90
r4046 r5267 3 3 subroutine writedynav(time, vcov, ucov, teta, ppk, phi, q, masse, ps, phis) 4 4 5 #ifdef CPP_IOIPSL6 5 USE ioipsl 7 #endif8 6 USE infotrac, ONLY : nqtot 9 7 use com_io_dyn_mod, only : histaveid, histvaveid, histuaveid … … 46 44 integer time 47 45 48 #ifdef CPP_IOIPSL49 46 ! This routine needs IOIPSL to work 50 47 ! Variables locales … … 53 50 INTEGER iq, ii, ll 54 51 real tm(ip1jmp1*llm) 55 REAL vnat(ip1jm, llm), unat(ip1jmp1, llm) 52 REAL vnat(ip1jm, llm), unat(ip1jmp1, llm) 56 53 logical ok_sync 57 54 integer itau_w … … 75 72 ! Appels a histwrite pour l'ecriture des variables a sauvegarder 76 73 77 ! Vents U 74 ! Vents U 78 75 79 76 call histwrite(histuaveid, 'u', itau_w, unat, & … … 129 126 ENDIF 130 127 131 #else 132 write(lunout, *) "writedynav: Warning this routine should not be", & 133 " used without ioipsl" 134 #endif 135 ! of #ifdef CPP_IOIPSL 128 129 136 130 137 131 end subroutine writedynav
Note: See TracChangeset
for help on using the changeset viewer.