Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/leapfrog_loc.f90
- Timestamp:
- Sep 11, 2024, 4:27:07 PM (2 months ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3dmem/leapfrog_loc.f90
r5184 r5185 39 39 xios_set_current_context, & 40 40 using_xios 41 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO 41 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO, CPPKEY_REPROBUS 42 42 USE lmdz_description, ONLY: descript 43 43 USE lmdz_iniprint, ONLY: lunout, prt_level … … 81 81 ! Declarations: 82 82 ! ------------- 83 84 85 86 83 87 84 REAL, INTENT(IN) :: time_0 ! not used … … 319 316 320 317 IF (ok_guide) THEN 321 CALL guide_main(itau, ucov,vcov,teta,q,masse,ps)322 !$OMP BARRIER318 CALL guide_main(itau, ucov, vcov, teta, q, masse, ps) 319 !$OMP BARRIER 323 320 ENDIF 324 321 … … 796 793 !c$OMP END PARALLEL 797 794 798 799 800 795 IF(apphys) THEN 801 796 … … 952 947 endif 953 948 954 IF (ANY(type_trac == ['inca', 'inco'])) THEN 955 CALL finalize_inca 956 ! switching back to LMDZDYN context 957 !$OMP MASTER 958 IF (ok_dyn_xios) THEN 959 CALL xios_set_current_context(dyn3d_ctx_handle) 960 ENDIF 961 !$OMP END MASTER 949 IF (ANY(type_trac == ['inca', 'inco'])) THEN 950 CALL finalize_inca 951 ! switching back to LMDZDYN context 952 !$OMP MASTER 953 IF (ok_dyn_xios) THEN 954 CALL xios_set_current_context(dyn3d_ctx_handle) 962 955 ENDIF 963 #ifdef REPROBUS 964 IF (type_trac == 'repr') CALL finalize_reprobus 965 #endif 956 !$OMP END MASTER 957 ENDIF 958 IF (CPPKEY_REPROBUS) THEN 959 IF (type_trac == 'repr') CALL finalize_reprobus 960 END IF 966 961 967 962 !$OMP MASTER … … 1005 1000 !$OMP END MASTER 1006 1001 1007 IF (ANY(type_trac == ['inca', 'inco'])) THEN 1008 CALL finalize_inca 1009 ! switching back to LMDZDYN context 1010 !$OMP MASTER 1011 IF (ok_dyn_xios) THEN 1012 CALL xios_set_current_context(dyn3d_ctx_handle) 1013 ENDIF 1014 !$OMP END MASTER 1002 IF (ANY(type_trac == ['inca', 'inco'])) THEN 1003 CALL finalize_inca 1004 ! switching back to LMDZDYN context 1005 !$OMP MASTER 1006 IF (ok_dyn_xios) THEN 1007 CALL xios_set_current_context(dyn3d_ctx_handle) 1015 1008 ENDIF 1016 #ifdef REPROBUS 1017 IF (type_trac == 'repr') CALL finalize_reprobus 1018 #endif 1009 !$OMP END MASTER 1010 ENDIF 1011 IF (CPPKEY_REPROBUS) THEN 1012 IF (type_trac == 'repr') CALL finalize_reprobus 1013 END IF 1019 1014 1020 1015 !$OMP MASTER … … 1044 1039 !$OMP BARRIER 1045 1040 1046 1047 1048 CALL bilan_dyn_loc(2,dtvr*iperiod,dtvr*day_step*periodav, &1049 ps, masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)1050 1051 1052 1053 1054 CALL writedynav_loc(itau,vcov, &1055 ucov,teta,pk,phi,q,masse,ps,phis)1056 1041 IF (ok_dynzon) THEN 1042 1043 CALL bilan_dyn_loc(2, dtvr * iperiod, dtvr * day_step * periodav, & 1044 ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, q) 1045 1046 ENDIF !ok_dynzon 1047 1048 IF (ok_dyn_ave) THEN 1049 CALL writedynav_loc(itau, vcov, & 1050 ucov, teta, pk, phi, q, masse, ps, phis) 1051 ENDIF 1057 1052 1058 1053 ENDIF … … 1073 1068 !$OMP BARRIER 1074 1069 1075 1076 CALL writehist_loc(itau,vcov,ucov,teta,pk,phi,q, &1077 masse,ps,phis)1078 1070 IF (ok_dyn_ins) THEN 1071 CALL writehist_loc(itau, vcov, ucov, teta, pk, phi, q, & 1072 masse, ps, phis) 1073 endif 1079 1074 1080 1075 IF (ok_dyn_xios) THEN … … 1167 1162 !$OMP END MASTER 1168 1163 1169 IF (ANY(type_trac == ['inca', 'inco'])) THEN 1170 CALL finalize_inca 1171 ! switching back to LMDZDYN context 1172 !$OMP MASTER 1173 IF (ok_dyn_xios) THEN 1174 CALL xios_set_current_context(dyn3d_ctx_handle) 1175 ENDIF 1176 !$OMP END MASTER 1164 IF (ANY(type_trac == ['inca', 'inco'])) THEN 1165 CALL finalize_inca 1166 ! switching back to LMDZDYN context 1167 !$OMP MASTER 1168 IF (ok_dyn_xios) THEN 1169 CALL xios_set_current_context(dyn3d_ctx_handle) 1177 1170 ENDIF 1178 #ifdef REPROBUS 1179 IF (type_trac == 'repr') CALL finalize_reprobus 1180 #endif 1171 !$OMP END MASTER 1172 ENDIF 1173 IF (CPPKEY_REPROBUS) THEN 1174 IF (type_trac == 'repr') CALL finalize_reprobus 1175 END IF 1181 1176 1182 1177 !$OMP MASTER … … 1200 1195 ENDIF 1201 1196 1202 ! Ehouarn: re-compute geopotential for outputs 1203 !$OMP BARRIER 1204 !$OMP MASTER 1205 CALL geopot_loc(ip1jmp1,teta,pk,pks,phis,phi) 1206 !$OMP END MASTER 1207 !$OMP BARRIER 1208 1209 IF (ok_dynzon) THEN 1210 CALL bilan_dyn_loc(2,dtvr*iperiod,dtvr*day_step*periodav, & 1211 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) 1212 ENDIF 1213 1214 IF (ok_dyn_ave) THEN 1215 CALL writedynav_loc(itau,vcov, & 1216 ucov,teta,pk,phi,q,masse,ps,phis) 1217 ENDIF 1218 1219 ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) 1220 1221 IF(MOD(itau, iecri)==0) THEN 1222 1197 ! Ehouarn: re-compute geopotential for outputs 1223 1198 !$OMP BARRIER 1224 1199 !$OMP MASTER … … 1227 1202 !$OMP BARRIER 1228 1203 1229 1230 IF (ok_dyn_ins) THEN 1231 CALL writehist_loc(itau,vcov,ucov,teta,pk,phi,q, & 1232 masse,ps,phis) 1233 endif ! of if (ok_dyn_ins) 1204 IF (ok_dynzon) THEN 1205 CALL bilan_dyn_loc(2, dtvr * iperiod, dtvr * day_step * periodav, & 1206 ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, q) 1207 ENDIF 1208 1209 IF (ok_dyn_ave) THEN 1210 CALL writedynav_loc(itau, vcov, & 1211 ucov, teta, pk, phi, q, masse, ps, phis) 1212 ENDIF 1213 1214 ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) 1215 1216 IF(MOD(itau, iecri)==0) THEN 1217 1218 !$OMP BARRIER 1219 !$OMP MASTER 1220 CALL geopot_loc(ip1jmp1, teta, pk, pks, phis, phi) 1221 !$OMP END MASTER 1222 !$OMP BARRIER 1223 1224 IF (ok_dyn_ins) THEN 1225 CALL writehist_loc(itau, vcov, ucov, teta, pk, phi, q, & 1226 masse, ps, phis) 1227 endif ! of if (ok_dyn_ins) 1234 1228 1235 1229 IF (ok_dyn_xios) THEN … … 1269 1263 !$OMP END MASTER 1270 1264 1271 IF (ANY(type_trac == ['inca', 'inco'])) THEN 1272 CALL finalize_inca 1273 ! switching back to LMDZDYN context 1274 !$OMP MASTER 1275 IF (ok_dyn_xios) THEN 1276 CALL xios_set_current_context(dyn3d_ctx_handle) 1277 ENDIF 1278 !$OMP END MASTER 1265 IF (ANY(type_trac == ['inca', 'inco'])) THEN 1266 CALL finalize_inca 1267 ! switching back to LMDZDYN context 1268 !$OMP MASTER 1269 IF (ok_dyn_xios) THEN 1270 CALL xios_set_current_context(dyn3d_ctx_handle) 1279 1271 ENDIF 1280 #ifdef REPROBUS 1281 IF (type_trac == 'repr') CALL finalize_reprobus 1282 #endif 1272 !$OMP END MASTER 1273 ENDIF 1274 IF (CPPKEY_REPROBUS) THEN 1275 IF (type_trac == 'repr') CALL finalize_reprobus 1276 END IF 1283 1277 1284 1278 !$OMP MASTER
Note: See TracChangeset
for help on using the changeset viewer.