Changeset 1112


Ignore:
Timestamp:
2008-06-13T17:23:36+02:00 (12 years ago)
Author:
rblod
Message:

Correct some prints in LIM3

Location:
trunk/NEMO/LIM_SRC_3
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/iceini.F90

    r1055 r1112  
    185185         zx1 
    186186 
    187       WRITE(numout,*) 'lim_itd_ini : Initialization of ice thickness distribution ' 
    188       WRITE(numout,*) '~~~~~~~~~~~~' 
     187      IF(lwp) WRITE(numout,*) 'lim_itd_ini : Initialization of ice thickness distribution ' 
     188      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 
    189189 
    190190      !!-- End of declarations 
     
    213213      END DO 
    214214 
    215       WRITE(numout,*) ' Number of ice types jpm =      ', jpm 
    216       WRITE(numout,*) ' Number of ice categories jpl = ', jpl 
    217       DO jm = 1, jpm 
    218          WRITE(numout,*) ' Ice type ', jm 
    219          WRITE(numout,*) ' Number of thickness categories ', ice_ncat_types(jm) 
    220          WRITE(numout,*) ' Thickness category boundaries  ', ice_cat_bounds(jm,1:2) 
    221       END DO 
    222       WRITE(numout,*) 'Ice type vector', ice_types(1:jpl) 
    223       WRITE(numout,*) 
     215      IF(lwp) THEN   
     216         WRITE(numout,*) ' Number of ice types jpm =      ', jpm 
     217         WRITE(numout,*) ' Number of ice categories jpl = ', jpl 
     218         DO jm = 1, jpm 
     219            WRITE(numout,*) ' Ice type ', jm 
     220            WRITE(numout,*) ' Number of thickness categories ', ice_ncat_types(jm) 
     221            WRITE(numout,*) ' Thickness category boundaries  ', ice_cat_bounds(jm,1:2) 
     222         END DO 
     223         WRITE(numout,*) 'Ice type vector', ice_types(1:jpl) 
     224         WRITE(numout,*) 
     225      ENDIF 
    224226 
    225227      !- Thickness categories boundaries  
     
    247249      END DO 
    248250 
    249       WRITE(numout,*) ' Thickness category boundaries independently of ice type ' 
    250       WRITE(numout,*) ' hi_max ', hi_max(0:jpl) 
    251  
    252       WRITE(numout,*) ' Thickness category boundaries inside ice types ' 
    253       DO jm = 1, jpm 
    254          WRITE(numout,*) ' Type number ', jm 
    255          WRITE(numout,*) ' hi_max_typ : ', hi_max_typ(0:ice_ncat_types(jm),jm) 
    256       END DO 
     251      IF(lwp) WRITE(numout,*) ' Thickness category boundaries independently of ice type ' 
     252      IF(lwp) WRITE(numout,*) ' hi_max ', hi_max(0:jpl) 
     253 
     254      IF(lwp) WRITE(numout,*) ' Thickness category boundaries inside ice types ' 
     255      IF(lwp) THEN  
     256         DO jm = 1, jpm 
     257            WRITE(numout,*) ' Type number ', jm 
     258            WRITE(numout,*) ' hi_max_typ : ', hi_max_typ(0:ice_ncat_types(jm),jm) 
     259         END DO 
     260      ENDIF 
    257261 
    258262      DO jl = 1, jpl 
  • trunk/NEMO/LIM_SRC_3/limwri.F90

    r1055 r1112  
    125125         CALL lim_wri_init  
    126126 
    127          WRITE(numout,*) ' lim_wri, first time step ' 
    128          WRITE(numout,*) ' add_diag_swi ', add_diag_swi 
     127         IF(lwp) WRITE(numout,*) ' lim_wri, first time step ' 
     128         IF(lwp) WRITE(numout,*) ' add_diag_swi ', add_diag_swi 
    129129 
    130130         !-------------------- 
     
    150150 
    151151         DO jf = 1 , noumef 
    152             WRITE(numout,*) 'jf', jf 
     152            IF(lwp) WRITE(numout,*) 'jf', jf 
    153153            IF ( nc(jf) == 1 ) THEN 
    154154               CALL histdef( nice, nam(jf), titn(jf), uni(jf), jpi, jpj & 
    155155                  , nhorid, 1, 1, 1, -99, 32, clop, zsto, zout ) 
    156                WRITE(numout,*) 'nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout' 
    157                WRITE(numout,*)  nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout  
     156               IF(lwp) WRITE(numout,*) 'nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout' 
     157               IF(lwp) WRITE(numout,*)  nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout  
    158158            ENDIF 
    159159         END DO 
     
    316316 
    317317      IF ( ( nn_fsbc * niter + nit000 - 1 ) >= nitend .OR. kindic < 0 ) THEN 
    318          WRITE(numout,*) ' Closing the icemod file ' 
     318         IF( lwp) WRITE(numout,*) ' Closing the icemod file ' 
    319319         CALL histclo( nice ) 
    320320      ENDIF 
     
    375375 
    376376         IF ( ( nn_fsbc * niter + nit000 - 1 ) >= nitend .OR. kindic < 0 ) THEN 
    377             WRITE(numout,*) ' Closing the icemod file ' 
     377            IF(lwp) WRITE(numout,*) ' Closing the icemod file ' 
    378378            CALL histclo( nicea )  
    379379         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.