New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5195 for branches – NEMO

Changeset 5195 for branches


Ignore:
Timestamp:
2015-04-03T13:28:22+02:00 (9 years ago)
Author:
vancop
Message:

sette modifs 2

Location:
branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_pisces_cfg

    r4147 r5195  
    6262!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    6363/ 
     64!''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
     65&nampisice      !  Prescribed sea ice tracers 
     66!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
     67/ 
  • branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_pisces_cfg

    r4147 r5195  
    6464!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    6565/ 
     66!''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
     67&nampisice      !  Prescribed sea ice tracers 
     68!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
     69/ 
  • branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90

    r5194 r5195  
    4848      !!                * -1 => the ice-ocean tracer concentration ratio follows the 
    4949      !!                         ice-ocean salinity ratio 
    50       !!                * -2 => tracer concentration in sea ice is prescribed and 
    51       !!                        trc_ice_prescr is used 
     50      !!                * -2 => no ice-ocean tracer concentration is used 
     51      !!                        instead, the tracer concentration in sea ice  
     52      !!                        is prescribed to trc_ice_prescr 
    5253      !!  
    53       !! cn_trc_o          specifies which prescribed tracer concentration 
    54       !!                   should be used 
    55       !! 'GL' use global ocean values making distinction for Baltic Sea only 
    56       !! 'AA' use Arctic/Antarctic contrasted values, + Baltic 
     54      !! cn_trc_o  specifies which disinctions are made for prescribed tracer concentration 
     55      !!                * 'GL' use global ocean values making distinction for Baltic Sea only 
     56      !!                * 'AA' use Arctic/Antarctic contrasted values, + Baltic 
    5757      !! 
    5858      !!---------------------------------------------------------------------- 
     
    223223      trc_ice_prescr(jpnh4) = sn_tri_nh4%trc_prescr 
    224224      cn_trc_o      (jpnh4) = sn_tri_nh4%ctrc_o 
    225  
    226       ! Dummy write 
    227       WRITE(numout,*) ' trc_ice_ratio :', trc_ice_ratio 
    228       WRITE(numout,*) ' trc_ice_prescr:', trc_ice_prescr 
    229       WRITE(numout,*) ' cn_trc_o      :', cn_trc_o 
    230       ! End dummy write 
    231225 
    232226      !-------------------------------------------- 
     
    379373      END DO 
    380374 
    381       ! dummy write 
    382       DO jn = 1, jptra 
    383          WRITE(numout,*) jn, ' zratio : ', zratio(jn,:) 
    384       END DO 
    385       ! end dummy write 
    386  
    387375      !------------------------------- 
    388376      ! Sea ice tracer concentrations 
  • branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r5193 r5195  
    134134                  tra(ji,jj,1,jn) = MAX( tra(ji,jj,1,jn) + zdtra, 0.) ! avoid integral ocean uptake if freezing (for iron) 
    135135    
    136 !                 IF ( ztfx .NE. 0.0 ) THEN 
    137                   IF ( ( ji .EQ. 3 ) .AND. ( jj .EQ. 2 )  .AND. ( jn .EQ. 2 ) ) THEN 
    138                       WRITE(numout,*) ji, jj, jn 
    139                       WRITE(numout,*) ' trn    : ', trn(ji,jj,1,jn) 
    140                       WRITE(numout,*) ' trb    : ', trb(ji,jj,1,jn) 
    141                       WRITE(numout,*) ' tra    : ', tra(ji,jj,1,jn) 
    142                       WRITE(numout,*) ' trc_o  : ', trc_o(ji,jj,jn) 
    143                       WRITE(numout,*) ' trc_i  : ', trc_i(ji,jj,jn) 
    144                       WRITE(numout,*) ' fmmflx : ', fmmflx(ji,jj) 
    145                       WRITE(numout,*) ' zswitch: ', zswitch 
    146                       WRITE(numout,*) ' zcd   : ', zcd 
    147                       WRITE(numout,*) ' zftra : ', zftra 
    148                       WRITE(numout,*) ' ztfx  : ', ztfx 
    149                       WRITE(numout,*) ' r1_rau0 : ', r1_rau0 
    150                       WRITE(numout,*) ' zsfx  : ', zsfx(ji,jj) 
    151                       WRITE(numout,*) ' zse3t : ', zse3t 
    152                       WRITE(numout,*) ' ztra  : ', ztra 
    153                       WRITE(numout,*) ' zdtra : ', zdtra 
    154                       WRITE(numout,*) ' Old tendency : ', zsfx(ji,jj) * r1_rau0 * trn(ji,jj,1,jn) * zse3t 
    155                   ENDIF 
    156     
    157136               END DO 
    158137            END DO 
Note: See TracChangeset for help on using the changeset viewer.