Changeset 1806 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/TRA/traqsr.F90

Timestamp:

2010-02-24T17:40:02+01:00 (14 years ago)

Author:

cbricaud

Message:

developement that is running with running with nemoref on 19022010

File:

• branches/DEV_r1784_3DF/NEMO/OPA_SRC/TRA/traqsr.F90 (modified) (2 diffs)

branches/DEV_r1784_3DF/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -142 +142 @@
 !CDIR NOVERRCHK
                   DO ji = 1, jpi
-                     zchl = MIN( 10. , MAX( 0.03, sf_chl(1)%fnow(ji,jj) ) )
+                     zchl = MIN( 10. , MAX( 0.03, sf_chl(1)%fnow(ji,jj,1) ) )
                      irgb = NINT( 41 + 20.*LOG10(zchl) + 1.e-15 )
                      zekb(ji,jj) = rkrgb(1,irgb)
@@ -334 +334 @@
                   CALL ctl_stop( 'tra_qsr_init: unable to allocate sf_chl structure' )   ;   RETURN
                ENDIF
-               ALLOCATE( sf_chl(1)%fnow(jpi,jpj)   )
-               ALLOCATE( sf_chl(1)%fdta(jpi,jpj,2) )
+               ALLOCATE( sf_chl(1)%fnow(jpi,jpj,1)   )
+               ALLOCATE( sf_chl(1)%fdta(jpi,jpj,1,2) )
                !                                        ! fill sf_chl with sn_chl and control print
                CALL fld_fill( sf_chl, (/ sn_chl /), cn_dir, 'tra_qsr_init',   &