Changeset 11038
- Timestamp:
- 2019-05-22T22:44:28+02:00 (5 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r10974 r11038 75 75 76 76 !! * Module variables 77 INTEGER :: nn_dct ! Frequency of computation78 INTEGER :: nn_dctwri ! Frequency of output79 INTEGER :: nn_secdebug ! Number of the section to debug80 INTEGER :: nn_dct_h ! Frequency of computation for NOOS hourly files81 INTEGER :: nn_dctwri_h ! Frequency of output for NOOS hourly files77 INTEGER :: nn_dct = 1 ! Frequency of computation 78 INTEGER :: nn_dctwri = 1 ! Frequency of output 79 INTEGER :: nn_secdebug = 0 ! Number of the section to debug 80 INTEGER :: nn_dct_h = 1 ! Frequency of computation for NOOS hourly files 81 INTEGER :: nn_dctwri_h = 1 ! Frequency of output for NOOS hourly files 82 82 83 83 INTEGER, PARAMETER :: nb_class_max = 12 ! maximum number of classes, i.e. depth levels or density classes … … 209 209 IF( ln_NOOS ) THEN 210 210 WRITE(numout,*) " Calculate NOOS hourly output: ln_dct_calc_noos_hr = ",ln_dct_calc_noos_hr 211 WRITE(numout,*) " Calculate NOOS 25 hour mean output: ln_dct_calc_noos_ hr= ",ln_dct_calc_noos_25h211 WRITE(numout,*) " Calculate NOOS 25 hour mean output: ln_dct_calc_noos_25h = ",ln_dct_calc_noos_25h 212 212 WRITE(numout,*) " Use IOM Output: ln_dct_iom_cont = ",ln_dct_iom_cont 213 213 WRITE(numout,*) " Output in ASCII (True) or Binary (False): ln_dct_ascii = ",ln_dct_ascii … … 254 254 ENDIF 255 255 ELSE 256 CALL ctl_opn( numdct_vol, 'volume_transport', ' NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )257 CALL ctl_opn( numdct_heat, 'heat_transport' , ' NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )258 CALL ctl_opn( numdct_salt, 'salt_transport' , ' NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )256 CALL ctl_opn( numdct_vol, 'volume_transport', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 257 CALL ctl_opn( numdct_heat, 'heat_transport' , 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 258 CALL ctl_opn( numdct_salt, 'salt_transport' , 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 259 259 ENDIF 260 260 ENDIF … … 559 559 CALL wrk_alloc( nb_point_max, directemp ) 560 560 561 ! --------------------------------------------------------------------------------------------- 562 ! This section seems to be needed, else later reads find no sections in section_ijglobal.diadct 561 563 !open input file 562 564 !--------------- … … 575 577 READ(107) isec 576 578 CLOSE(107) 579 ! --------------------------------------------------------------------------------------------- 577 580 578 581 CALL ctl_opn( numdct_in, 'section_ijglobal.diadct', 'OLD', 'UNFORMATTED', 'SEQUENTIAL', -1, numout, .TRUE. ) -
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diapea.F90
r10958 r11038 59 59 WRITE(numout,*) '~~~~~~~~~~~~' 60 60 WRITE(numout,*) 'Namelist nam_pea : set pea output ' 61 WRITE(numout,*) 'Switch for pea diagnostics (T) or not (F) ln_ diaregmean= ', ln_pea61 WRITE(numout,*) 'Switch for pea diagnostics (T) or not (F) ln_pea = ', ln_pea 62 62 ENDIF 63 63 -
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90
r10974 r11038 93 93 INTEGER :: BGC_nlevs,nBGC_output, bgci 94 94 CHARACTER(len = 10), ALLOCATABLE, DIMENSION(:) :: BGC_stat_name(:),BGC_lev_name(:),BGC_output_var(:) 95 #endif96 97 95 ! 98 96 NAMELIST/nam_diaregmean/ ln_diaregmean,ln_diaregmean_ascii,ln_diaregmean_bin,ln_diaregmean_nc,& 99 97 & ln_diaregmean_karamld, ln_diaregmean_pea,ln_diaregmean_diaar5,ln_diaregmean_diasbc,ln_diaregmean_bgc 98 ln_diaregmean_bgc = .FALSE. ! don't write biogeochemistry regional means 99 #else 100 NAMELIST/nam_diaregmean/ ln_diaregmean,ln_diaregmean_ascii,ln_diaregmean_bin,ln_diaregmean_nc,& 101 & ln_diaregmean_karamld, ln_diaregmean_pea,ln_diaregmean_diaar5,ln_diaregmean_diasbc 102 #endif 100 103 101 104 … … 105 108 ! Defaults are generally negative, regional means output switched off 106 109 ln_diaregmean = .FALSE. ! don't write regional means 107 ln_diaregmean_bgc = .FALSE. ! don't write biogeochemistry regional means108 110 ln_diaregmean_karamld = .FALSE. ! don't write mixed layer depth 109 111 ln_diaregmean_pea = .FALSE. ! don't write potential energy anomaly … … 133 135 WRITE(numout,*) 'Switch for regmean AR5 SLR terms (T) or not (F) ln_diaregmean_diaar5 = ', ln_diaregmean_diaar5 134 136 WRITE(numout,*) 'Switch for regmean Surface forcing terms (T) or not (F) ln_diaregmean_diasbc = ', ln_diaregmean_diasbc 135 137 ! WRITE(numout,*) 'Switch for regmean BioGeoChemistry terms (T) or not (F) ln_diaregmean_bgc = ', ln_diaregmean_bgc 136 138 ENDIF 137 139 … … 275 277 idmaskvar = iom_varid( inum, 'mask', kdimsz=zdimsz, kndims=zndims, ldstop = .FALSE.) 276 278 nmasks = zdimsz(3) 279 ! IF(lwp) WRITE(numout,*) 'dia_regmean found this many sets of regions : ', nmasks 277 280 278 281 ! read in the region mask (which contains floating point numbers) into a temporary array of reals. … … 972 975 973 976 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean deallocated arrays for ',kt,maskno 974 IF(lwp )CALL FLUSH(numdct_reg_txt)977 IF(lwp .AND. ln_diaregmean_ascii) CALL FLUSH(numdct_reg_txt) 975 978 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean flushed region mean text for ',kt,maskno 976 979 END DO -
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r10959 r11038 319 319 CALL iom_set_axis_attr( "region", (/ (REAL(ji,wp), ji=1,n_regions_output) /) ) 320 320 321 321 ! CALL iom_set_axis_attr( "noos", (/ (REAL(ji,wp), ji=1,3) /) ) 322 322 323 323 -
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r10981 r11038 3793 3793 CALL flush(kout) 3794 3794 ENDIF 3795 STOP 'ctl_opn bad opening '3795 STOP 'ctl_opn bad opening '//clfile 3796 3796 ENDIF 3797 3797 -
branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r10728 r11038 493 493 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 494 494 CALL dia_tmb_init ! TMB outputs 495 CALL dia_regmean_init ! TMB outputs 496 CALL dia_pea_init ! TMB outputs 495 497 CALL dia_25h_init ! 25h mean outputs 496 498 CALL dia_diaopfoam_init ! FOAM operational output … … 630 632 IF( numdct_heat /= -1 ) CLOSE( numdct_heat ) ! heat transports 631 633 IF( numdct_salt /= -1 ) CLOSE( numdct_salt ) ! salt transports 634 IF( numdct_NOOS /= -1 ) CLOSE( numdct_NOOS ) ! NOOS transports 632 635 633 636 !
Note: See TracChangeset
for help on using the changeset viewer.