Changeset 5807 for branches/2015/dev_r5056_CMCC4_simplification
- Timestamp:
- 2015-10-19T15:34:10+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r5282 r5807 387 387 !!---------------------------------------------------------------------- 388 388 389 !#if390 !#endif391 392 389 IF(lwp) WRITE(numout,*) ' ' 393 390 IF(lwp) WRITE(numout,*) 'dia_wri_harm : Write harmonic analysis results' 394 !#if395 !#endif396 391 IF(lwp) WRITE(numout,*) ' ' 397 392 … … 399 394 !///////////// 400 395 ! 401 !#if402 !#else403 396 DO jh = 1, nb_ana 404 397 CALL iom_put( TRIM(tname(jh))//'x', out_eta(:,:,jh) ) 405 398 CALL iom_put( TRIM(tname(jh))//'y', out_eta(:,:,nb_ana+jh) ) 406 399 END DO 407 !#endif408 400 409 401 ! B) ubar 410 402 !///////// 411 403 ! 412 !#if413 !#else414 404 DO jh = 1, nb_ana 415 405 CALL iom_put( TRIM(tname(jh))//'x_u', out_u(:,:,jh) ) 416 406 CALL iom_put( TRIM(tname(jh))//'y_u', out_u(:,:,nb_ana+jh) ) 417 407 END DO 418 !#endif419 408 420 409 ! C) vbar 421 410 !///////// 422 411 ! 423 !#if424 !#else425 412 DO jh = 1, nb_ana 426 413 CALL iom_put( TRIM(tname(jh))//'x_v', out_v(:,:,jh ) ) 427 414 CALL iom_put( TRIM(tname(jh))//'y_v', out_v(:,:,jh+nb_ana) ) 428 415 END DO 429 !#endif430 416 ! 431 417 END SUBROUTINE dia_wri_harm -
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r5282 r5807 297 297 298 298 IF( mynode == 0 ) THEN 299 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', - 2, 6, .TRUE. , 1 )299 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 300 300 WRITE(kumond, nammpp) 301 301 ENDIF … … 3198 3198 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 3199 3199 IF( .FALSE. ) ldtxt(:) = 'never done' 3200 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, . TRUE. , 1 )3200 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 3201 3201 END FUNCTION mynode 3202 3202 -
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r5282 r5807 255 255 CALL dom_vvl_interpol( fse3t_b(:,:,:), fse3u_b(:,:,:), 'U' ) 256 256 CALL dom_vvl_interpol( fse3t_b(:,:,:), fse3v_b(:,:,:), 'V' ) 257 CALL dom_vvl_interpol( fse3 33333333333333333333333333333333t_n(:,:,:), fse3u_n(:,:,:), 'U' )257 CALL dom_vvl_interpol( fse3t_n(:,:,:), fse3u_n(:,:,:), 'U' ) 258 258 CALL dom_vvl_interpol( fse3t_n(:,:,:), fse3v_n(:,:,:), 'V' ) 259 259 CALL dom_vvl_interpol( fse3u_n(:,:,:), fse3f_n(:,:,:), 'F' ) -
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90
r5282 r5807 133 133 IF( l_trdtrc ) THEN! trends 134 134 DO jn = 1, jptra 135 135 zfact = 1.e0 / r2dtrc 136 136 DO jk = 1, jpkm1 137 137 ztrdt(:,:,jk,jn) = ( trb(:,:,jk,jn) - ztrdt(:,:,jk,jn) ) * zfact -
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc.F90
r5282 r5807 771 771 ! ====================================================================== 772 772 773 !# if774 !# else775 776 773 ! IV.1 Code for IOIPSL/NetCDF output 777 774 ! ---------------------------------- … … 858 855 icount = 1 859 856 860 !# endif861 862 857 IF( MOD( itmod, nn_trd_trc ) == 0 ) THEN 863 858 ! … … 1044 1039 ! ====================================================================== 1045 1040 1046 !# if1047 !# else1048 1049 1041 ! IV.1 Code for IOIPSL/NetCDF output 1050 1042 ! ---------------------------------- … … 1092 1084 1093 1085 1094 !# endif1095 1086 1096 1087 IF( MOD( itmod, nn_trd_trc ) == 0 ) THEN … … 1243 1234 ! ====================================================================== 1244 1235 1245 !#if1246 !#else1247 1236 ! clmxl = legend root for netCDF output 1248 1237 IF( nn_ctls_trc == 0 ) THEN ! control surface = mixed-layer with density criterion … … 1387 1376 #endif 1388 1377 1389 !#endif1390 1378 END SUBROUTINE trd_mxl_trc_init 1391 1379 -
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/SETTE/sette.sh
r5282 r5807 88 88 # 89 89 # Compiler among those in NEMOGCM/ARCH 90 COMPILER= ifort_athena91 export BATCH_COMMAND_PAR=" bsub <"90 COMPILER=X64_ADA 91 export BATCH_COMMAND_PAR="llsubmit" 92 92 export BATCH_COMMAND_SEQ=$BATCH_COMMAND_PAR 93 93 export INTERACT_FLAG="no" 94 94 export MPIRUN_FLAG="yes" 95 export USING_XIOS=" no"95 export USING_XIOS="yes" 96 96 # 97 97 export DEL_KEYS="key_iomput" -
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/SETTE/sette_xios.sh
r5282 r5807 84 84 # 85 85 # Compiler among those in NEMOGCM/ARCH 86 COMPILER= ifort_athena_xios87 export BATCH_COMMAND_PAR=" bsub <"86 COMPILER=X64_ADA 87 export BATCH_COMMAND_PAR="llsubmit" 88 88 export BATCH_COMMAND_SEQ=$BATCH_COMMAND_PAR 89 89 export INTERACT_FLAG="no"
Note: See TracChangeset
for help on using the changeset viewer.